VERSION 5.00
Begin VB.Form Form1 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Form"
   ClientHeight    =   4455
   ClientLeft      =   5085
   ClientTop       =   1935
   ClientWidth     =   6645
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   4455
   ScaleWidth      =   6645
   Begin VB.TextBox Text10b 
      Appearance      =   0  'Flat
      Height          =   285
      Left            =   5280
      Locked          =   -1  'True
      TabIndex        =   22
      Top             =   3240
      Width           =   1215
   End
   Begin VB.TextBox Text9b 
      Appearance      =   0  'Flat
      Height          =   285
      Left            =   5280
      Locked          =   -1  'True
      TabIndex        =   21
      Top             =   3000
      Width           =   1215
   End
   Begin VB.TextBox Text8b 
      Appearance      =   0  'Flat
      Height          =   285
      Left            =   5280
      Locked          =   -1  'True
      TabIndex        =   20
      Top             =   2760
      Width           =   1215
   End
   Begin VB.TextBox Text7b 
      Appearance      =   0  'Flat
      Height          =   285
      Left            =   5280
      Locked          =   -1  'True
      TabIndex        =   19
      Top             =   2520
      Width           =   1215
   End
   Begin VB.TextBox Text6b 
      Appearance      =   0  'Flat
      Height          =   285
      Left            =   5280
      Locked          =   -1  'True
      TabIndex        =   18
      Top             =   2280
      Width           =   1215
   End
   Begin VB.TextBox Text5b 
      Appearance      =   0  'Flat
      Height          =   285
      Left            =   5280
      Locked          =   -1  'True
      TabIndex        =   17
      Top             =   2040
      Width           =   1215
   End
   Begin VB.TextBox Text4b 
      Appearance      =   0  'Flat
      Height          =   285
      Left            =   5280
      Locked          =   -1  'True
      TabIndex        =   16
      Top             =   1800
      Width           =   1215
   End
   Begin VB.TextBox Text3b 
      Appearance      =   0  'Flat
      BackColor       =   &H000080FF&
      Height          =   285
      Left            =   5280
      Locked          =   -1  'True
      TabIndex        =   15
      Top             =   1320
      Width           =   1215
   End
   Begin VB.TextBox Text2b 
      Appearance      =   0  'Flat
      BackColor       =   &H00C0C0C0&
      Height          =   285
      Left            =   5280
      Locked          =   -1  'True
      TabIndex        =   14
      Top             =   840
      Width           =   1215
   End
   Begin VB.TextBox Text1b 
      Appearance      =   0  'Flat
      BackColor       =   &H0000C0C0&
      Height          =   285
      Left            =   5280
      Locked          =   -1  'True
      TabIndex        =   13
      Top             =   360
      Width           =   1215
   End
   Begin VB.TextBox Text10 
      Appearance      =   0  'Flat
      Height          =   285
      Left            =   3720
      Locked          =   -1  'True
      TabIndex        =   12
      Top             =   3240
      Width           =   1215
   End
   Begin VB.TextBox Text9 
      Appearance      =   0  'Flat
      Height          =   285
      Left            =   3720
      Locked          =   -1  'True
      TabIndex        =   11
      Top             =   3000
      Width           =   1215
   End
   Begin VB.TextBox Text8 
      Appearance      =   0  'Flat
      Height          =   285
      Left            =   3720
      Locked          =   -1  'True
      TabIndex        =   10
      Top             =   2760
      Width           =   1215
   End
   Begin VB.TextBox Text7 
      Appearance      =   0  'Flat
      Height          =   285
      Left            =   3720
      Locked          =   -1  'True
      TabIndex        =   9
      Top             =   2520
      Width           =   1215
   End
   Begin VB.TextBox Text6 
      Appearance      =   0  'Flat
      Height          =   285
      Left            =   3720
      Locked          =   -1  'True
      TabIndex        =   8
      Top             =   2280
      Width           =   1215
   End
   Begin VB.TextBox Text5 
      Appearance      =   0  'Flat
      Height          =   285
      Left            =   3720
      Locked          =   -1  'True
      TabIndex        =   7
      Top             =   2040
      Width           =   1215
   End
   Begin VB.TextBox Text4 
      Appearance      =   0  'Flat
      Height          =   285
      Left            =   3720
      Locked          =   -1  'True
      TabIndex        =   6
      Top             =   1800
      Width           =   1215
   End
   Begin VB.TextBox Text3 
      Appearance      =   0  'Flat
      BackColor       =   &H000080FF&
      Height          =   285
      Left            =   3720
      Locked          =   -1  'True
      TabIndex        =   5
      Top             =   1320
      Width           =   1215
   End
   Begin VB.TextBox Text2 
      Appearance      =   0  'Flat
      BackColor       =   &H00C0C0C0&
      Height          =   285
      Left            =   3720
      Locked          =   -1  'True
      TabIndex        =   3
      Top             =   840
      Width           =   1215
   End
   Begin VB.CommandButton cmdclas 
      Caption         =   "Calcola"
      Height          =   375
      Left            =   120
      TabIndex        =   2
      Top             =   1320
      Width           =   975
   End
   Begin VB.TextBox txtcerca 
      Height          =   405
      Left            =   120
      TabIndex        =   1
      Top             =   3840
      Width           =   2175
   End
   Begin VB.CommandButton cmdcerca 
      Caption         =   "Ricerca"
      Default         =   -1  'True
      Height          =   375
      Left            =   2520
      TabIndex        =   0
      Top             =   3840
      Width           =   1575
   End
   Begin VB.TextBox Text1 
      Appearance      =   0  'Flat
      BackColor       =   &H0000C0C0&
      Height          =   285
      Left            =   3720
      Locked          =   -1  'True
      TabIndex        =   4
      Top             =   360
      Width           =   1215
   End
   Begin VB.Line Line3 
      X1              =   2160
      X2              =   1920
      Y1              =   1440
      Y2              =   1800
   End
   Begin VB.Line Line2 
      X1              =   1920
      X2              =   2160
      Y1              =   1080
      Y2              =   1440
   End
   Begin VB.Line Line1 
      X1              =   1320
      X2              =   2160
      Y1              =   1440
      Y2              =   1440
   End
   Begin VB.Label Label12 
      Caption         =   "Decimo"
      Height          =   255
      Left            =   2760
      TabIndex        =   34
      Top             =   3240
      Width           =   735
   End
   Begin VB.Label Label11 
      Caption         =   "Nono"
      Height          =   255
      Left            =   2760
      TabIndex        =   33
      Top             =   3000
      Width           =   735
   End
   Begin VB.Label Label10 
      Caption         =   "Ottavo"
      Height          =   255
      Left            =   2760
      TabIndex        =   32
      Top             =   2760
      Width           =   735
   End
   Begin VB.Label Label9 
      Caption         =   "Settimo"
      Height          =   255
      Left            =   2760
      TabIndex        =   31
      Top             =   2520
      Width           =   615
   End
   Begin VB.Label Label8 
      Caption         =   "Sesto"
      Height          =   255
      Left            =   2760
      TabIndex        =   30
      Top             =   2280
      Width           =   735
   End
   Begin VB.Label Label7 
      Caption         =   "Cinque"
      Height          =   255
      Left            =   2760
      TabIndex        =   29
      Top             =   2040
      Width           =   735
   End
   Begin VB.Label Label6 
      Caption         =   "Quarto"
      Height          =   255
      Left            =   2760
      TabIndex        =   28
      Top             =   1800
      Width           =   735
   End
   Begin VB.Label Label5 
      Caption         =   "Terzo"
      Height          =   255
      Left            =   2760
      TabIndex        =   27
      Top             =   1320
      Width           =   735
   End
   Begin VB.Label Label4 
      Caption         =   "Secondo"
      Height          =   255
      Left            =   2760
      TabIndex        =   26
      Top             =   840
      Width           =   735
   End
   Begin VB.Label Label3 
      Caption         =   "Primo"
      Height          =   255
      Left            =   2760
      TabIndex        =   25
      Top             =   360
      Width           =   735
   End
   Begin VB.Label lbltem 
      Caption         =   "Tempo"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   5400
      TabIndex        =   24
      Top             =   0
      Width           =   855
   End
   Begin VB.Label lblnom 
      Caption         =   "Nome"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   3960
      TabIndex        =   23
      Top             =   0
      Width           =   735
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdclas_Click()
Dim i As Integer
Dim t1 As Integer
Dim t2 As String
Dim x As Integer
For i = 1 To 9
For x = i + 1 To 10
If tempi(i) > tempi(x) Then
t1 = tempi(i)
t2 = nomi(i)
tempi(i) = tempi(x)
nomi(i) = nomi(x)
tempi(x) = t1
nomi(x) = t2
End If
Next x, i
Text1.Text = nomi(1)
Text2.Text = nomi(2)
Text3.Text = nomi(3)
Text4.Text = nomi(4)
Text5.Text = nomi(5)
Text6.Text = nomi(6)
Text7.Text = nomi(7)
Text8.Text = nomi(8)
Text9.Text = nomi(9)
Text10.Text = nomi(10)
Text1b.Text = tempi(1)
Text2b.Text = tempi(2)
Text3b.Text = tempi(3)
Text4b.Text = tempi(4)
Text5b.Text = tempi(5)
Text6b.Text = tempi(6)
Text7b.Text = tempi(7)
Text8b.Text = tempi(8)
Text9b.Text = tempi(9)
Text10b.Text = tempi(10)
End Sub

Private Sub Form_Load()
Form1.Visible = False
Form2.Show
End Sub

Private Sub cmdcerca_Click()
Dim trov As String
Dim flag As Boolean
Dim i As Integer
flag = False
trov = txtcerca.Text
For i = 1 To 10
If trov = nomi(i) Then
MsgBox "Concorrente " & trov & " trovato, ha fatto " & tempi(i)
rim = 10
flag = False
Else
flag = True
End If
Next
If flag = False Then
MsgBox "Errore"
End If
End Sub
